# -*- cperl -*-
{
    #pop @result;
    my @r; # = join '', map { m/^smart:.+$/ } @result;
    do { push @r, $_ if (!m/^smart:.+$/) } for @result;
    my $expect = <<"____END_EXPECT";
1..5
ok: Statements after a inline comment
ok: Statements after a multi-line comment block
ok: Simple statement.
ok: Simple statement..
ok
____END_EXPECT
    ;
    my $result = join '', @r; #@result;
    #print $result;
    $check_result = $result eq $expect;
    print "";
}
